home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 09, No. 12 (1988-12)(MicroSPARC)(Side A).zip / Nibble Volume 09, No. 12 (1988-12)(MicroSPARC)(Side A).po / ENCR.OBJ.S < prev    next >
Text File  |  1996-12-24  |  347b  |  22 lines
  1. *
  2. * ENCR.OBJ Source Code
  3. * BY WILLIAM F. SIMPSON
  4. * COPYRIGHT(C) 1988
  5. * MICROSPARC, INC
  6. * CONCORD, MA 01742
  7. *
  8.           ORG $300
  9. B1        DFB $00
  10. B2        DFB $00
  11. ANS       DFB $00
  12. ENCR      LDA B2
  13.           EOR B1
  14.           STA ANS
  15.           LDA B1
  16.           CLC
  17.           ROR
  18.           BCC END
  19.           ORA #128
  20. END       STA B1
  21.           RTS
  22.